home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / iq.arc / ANALOGY6.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-13  |  4.5 KB  |  84 lines
  1. 10  KEY OFF:KEY(10) ON:ON KEY(10) GOSUB 580:KEY(9) ON:ON KEY(9) GOSUB 410:DIM A(12):FOR I=1 TO 12:A(I)=I:NEXT I:COLOR 3,0,8
  2. 20  CLS:R=0:N=0:GOSUB 820:FOR I=1 TO 100:SWAP A(INT(RND*12+1)),A(INT(RND*12+1)):NEXT I
  3. 30  CLS:LOCATE 1,34:COLOR 0,7:PRINT"IQ Builder ":COLOR 11,0
  4. 40  LOCATE 2,34:PRINT"Analogies 6":COLOR 0,11
  5. 50  LOCATE 4,21:PRINT CHR$(201);
  6. 60  FOR J=1 TO 35
  7. 70    PRINT CHR$(205);
  8. 80    IF J > 35 GOTO 100
  9. 90    NEXT J
  10. 100  PRINT CHR$(187)
  11. 110  LOCATE 5,21:PRINT CHR$(186);:PRINT"Press <F9> to skip to next section.";
  12. 120  PRINT CHR$(186)
  13. 130  LOCATE 6,21:PRINT CHR$(186);:PRINT"Press <F10> to return to main menu.";
  14. 140  PRINT CHR$(186)
  15. 150  LOCATE 7,21:PRINT CHR$(200);
  16. 160  FOR J=1 TO 35
  17. 170    PRINT CHR$(205);
  18. 180    IF J > 35 GOTO 200
  19. 190    NEXT J
  20. 200  PRINT CHR$(188):COLOR 7,0
  21. 210  XX=1:C=A(XX):R=0:N=0
  22. 220  RESTORE:IF C>1 THEN FOR L=1 TO C-1:FOR X=1 TO 14:READ A$:NEXT X,L
  23. 230  GOSUB 780
  24. 240  READ A$,B$
  25. 250  PRINT:COLOR 0,3:PRINT"Problem" C
  26. 260  PRINT:PRINT"Which analogy below is most similar to this one:":PRINT
  27. 270  AL=LEN(A$):BL=LEN(B$):COLOR 11,0
  28. 280  PRINT "VARPTR" STRING$(AL,"SOUND") "COLOR       " "VARPTR" STRING$(BL,"SOUND") "COLOR"
  29. 290  PRINT "CALL" A$ "CALL";:COLOR 0,11:PRINT" is to ";:COLOR 11,0:PRINT "CALL" B$ "CALL";:COLOR 0,11:PRINT " as":COLOR 11,0
  30. 300  PRINT "CLS" STRING$(AL,"SOUND") "'       " "CLS" STRING$(BL,"SOUND") "'":PRINT
  31. 310  FOR X=1 TO 5:COLOR 3,8:PRINT"(";:COLOR 11,0:PRINT X;:COLOR 3,8:PRINT")  ";:READ A$,B$:PRINT A$ " is to " B$:NEXT X
  32. 320  READ K, A$
  33. 330  LOCATE 25,1:PRINT"Your choice is - ";:N=N+1:Z=Z+1
  34. 340  GOSUB 830:IF INSTR("12345",IKEY$)=0 THEN 340 ELSE A=VAL(IKEY$)
  35. 350  IF (A<>K)*(Z>1) THEN PLAY "mfn27n20t32":LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:COLOR 11,12:PRINT"No!  The answer was " K ".";:COLOR 7,0:TIMEOUT=3:GOSUB 790:LOCATE 25,1:PRINT SPC(79);:GOTO 390
  36. 360  IF (A=K)*(Z=1) THEN LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"Correct!";:TIMEOUT=3:GOSUB 790:LOCATE 25,1:PRINT SPC(79);:R=R+1:GOTO 390
  37. 370  IF (A=K)*(Z>1) THEN LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"Right...";:TIMEOUT=3:GOSUB 790:LOCATE 25,1:PRINT SPC(79);:R=R+0.7:GOTO 390
  38. 380  PLAY "mfn27n20t32":LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:COLOR 12,1:PRINT"No, but here is a hint:  " A$;:COLOR 7,0:TIMEOUT=3:GOSUB 790:LOCATE 25,1:PRINT SPC(79);:GOTO 330
  39. 390  XX=XX+1:Z=0
  40. 400  IF XX<12 THEN C=A(XX):GOTO 220
  41. 410  COLOR 11,4:LOCATE 1,1:PRINT SPC(33):LOCATE 1,45:PRINT SPC(35)
  42. 420  LOCATE 2,1:PRINT SPC(33):LOCATE 2,45:PRINT SPC(35)
  43. 430  LOCATE 3,1:PRINT SPC(79)
  44. 440  LOCATE 4,1:PRINT SPC(20):LOCATE 4,58:PRINT SPC(22)
  45. 450  LOCATE 5,1:PRINT SPC(20):LOCATE 5,58:PRINT SPC(22)
  46. 460  LOCATE 6,1:PRINT SPC(20):LOCATE 6,58:PRINT SPC(22)
  47. 470  LOCATE 7,1:PRINT SPC(20):LOCATE 7,58:PRINT SPC(22)
  48. 480  COLOR 11,4:GOSUB 780:COLOR 3,0:LOCATE 15,17
  49. 490  IF N<3 THEN PRINT"You didn't give me much of a chance, did you?":GOTO 560
  50. 500  PRINT"You scored" R "right out of" N "or" INT(100*R/N) "percent."
  51. 510  IF R/N<0.6 THEN LOCATE 18,21:PRINT"I'll bet you do better next time.":TIMEOUT=7:GOSUB 790:RUN
  52. 520  LOCATE 18,34:IF R/N<=0.8 THEN PRINT"Good job!":GOTO 560
  53. 530  IF R/N<=0.9 THEN PRINT"Very good!":GOTO 560
  54. 540  IF R/N<0.99 THEN PRINT"Excellent!" GOTO 560
  55. 550  COLOR 19,0:PRINT"Brilliant!"
  56. 560  COLOR 3,0:LOCATE 25,1:PRINT "Press space bar to continue.";
  57. 570  IN$=INKEY$:IF IN$="" THEN 570 ELSE 590
  58. 580  SYSTEM
  59. 590  RUN "antonym1"
  60. 600  DATA antiseptic, bacteria, army, nation, lawyer, defense, prescription, cure, bald, hair, education, ignorance, 5, A removes B
  61. 610  DATA aristocrat, baron, flower, stem, president, vice president, leader, follower, insect, ant, civilian, soldier, 4, an example
  62. 620  DATA asteroid, planet, pond, lake, moon, orbit, meteor, burn, rocket, free fall, combustible, burning, 1, big to small
  63. 630  DATA bear, fur, fish, seaweed, fish, gills, car, sheet metal, bug, wings, food, nutrients, 3, outside cover
  64. 640  DATA conjunction, clauses, guest, hospitality, bridge, shores, paragraph, sentences, walls, land, shoes, foot, 2, binds together
  65. 650  DATA dam, flow, science, research, reporter, news, laws, lawyer, autocracy, liberty, education, learning, 4, A resists B
  66. 660  DATA erosion, water, bomb, fuse, wars, destruction, professional, amateur, aging, time, floor, polish, 4, action to agent
  67. 670  DATA gravel, pit, oil, well, cement, sand, tunnel, cave, crest, mountain, concrete, road, 1, up from ground
  68. 680  DATA hold, ship, basement, house, tail, airplane, vault, security, site, edifice, garage, car, 1, part down below
  69. 690  DATA illness, absence, watchman, theft, trip, fall, fly, drive, award, reward, competition, defeat, 2, one follows other
  70. 700  DATA intermediary, arbitrate, belligerent, peace, adherent, pact, general, private, prosecutor, conviction, believer, belief, 4, his job
  71. 710  DATA pear, potato, tomato, fruit, pint, liquid, great dane, terrier, sweet, sour, peach, turnip, 5, tree to ground
  72. 720  DATA sheep, fold, mackerel, school, dog, cat, bluefish, bait, planet, solar system, tortoise, shell, 1, types of herds
  73. 730  DATA solvency, pay, poor, buy, athletic, champion, aggressive, passive, punctual, tardy, bankruptcy, profit, 2, one leads to the other
  74. 740  DATA tyrant, domineer, cordial, rebuff, timid, withdraw, aggressor, tremble, malcontent, cooperate, disgruntled, rejoice, 2, character to action
  75. 750  '
  76. 760  '
  77. 770  '
  78. 780  FOR Y=8 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 8,1:RETURN
  79. 790  TIMEOUT$=TIME$:TIME2=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  80. 800  TIMEOUT$=TIME$:TIME3=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  81. 810  IF TIMEOUT > TIME3 - TIME2 THEN 800 ELSE RETURN
  82. 820  RNDTIME$=TIME$:RNDVAL=VAL(LEFT$(RNDTIME$,2))*120+VAL(MID$(RNDTIME$,4,2))*60+VAL(RIGHT$(RNDTIME$,2)):RANDOMIZE RNDVAL:RETURN
  83. 830  IKEY$=INKEY$:IF IKEY$="" THEN 830 ELSE RETURN
  84.